home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
wildcat
/
qwkhold1.zip
/
QWK2HOLD.WCX
(
.txt
)
< prev
next >
Wrap
Wildcat! WCX
|
1996-05-17
|
14KB
|
643 lines
'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx 14011 bytes 03/09/122 08:19:16am
'! Code Segment Size :8419 bytes
'! Data Segment Size :4986 bytes
'! String Segment Size:5592 bytes
'! Compiled with WCC version 4.12
Dim i4463 As Integer
Dim s4465 As String
Dim s4469 As String
Dim d4473 As Date
Dim i4475 As Integer
Dim s4477 As String
Dim s4481 As String
Dim s4485 As String
Dim w4489 As Word
Dim s4491 As String
Dim sr4495 As SearchRec
Dim l4544 As Long
Dim i4548 As Integer
Dim s4552 As String
Dim s4556 As String
Dim s4560 As String
Dim s4564 As String
Dim s4568 As String
Dim i4572 As Integer
Dim i4574 As Integer
Dim l4576 As Long
Dim i4902 As Integer
Dim s4904 As String
Dim i4908 As Integer
Dim i4910 As Integer
Dim s4914 As String
Dim s4918 As String
Dim s4922 As String
Dim s4926 As String
Dim s4930 As String
Dim s4936 As String
Dim s4940 As String
Dim s4948 As String
Dim i4952 As Integer
Dim i4954 As Integer
Dim s4956 As String
Dim s4960 As String
Dim s4964 As String
Dim l4968 As Long
Dim s4972 As String
Dim s4976 As String
Dim i4980 As Integer
Dim l65524_ As Long
Dim i65528_ As Integer
Dim l65530_ As Long
Dim i65534_ As Integer
EnablePages 0
s4491 = ProgPath + "QWK2HOLD.CFG"
If Exists(s4491) Then
Open s4491 For Input As 1
If Not Local Then
CarrierCheck(0)
End If
106 LockFile(1, 0, 1)
Input #1, s4976
Input #1, i4980
Input #1, s4948
Input #1, s4936
Input #1, s4960
Input #1, s4964
Input #1, i4574
Input #1, i4572
Input #1, l4576
Input #1, i4902
Input #1, s4918
Input #1, s4922
Input #1, s4926
Input #1, s4930
Input #1, s4940
Input #1, s4552
Input #1, s4556
Input #1, s4560
Input #1, s4564
Input #1, s4568
UnlockFile(1, 0, 1)
Close 1
If Not Local Then
CarrierCheck(-1)
End If
292 Else
298 i4463 = 0
GoTo 7270
End If
310 If User.SecLevel = s4960 Or User.SecLevel = s4964 Then
End
End If
351 If s4976 = "" Then
i4463 = 1
GoTo 7270
Else
387 s4976 = Trim(UCase(s4976))
If Mid(s4976, 2, 2) <> ":\" Then
i4463 = 1
GoTo 7270
End If
438 If Right(s4976, 1) <> "\" Then
s4976 = s4976 + "\"
End If
End If
475 If s4948 = "" Then
i4463 = 2
GoTo 7270
Else
511 s4948 = Trim(UCase(s4948))
If Mid(s4948, 2, 2) <> ":\" Then
i4463 = 2
GoTo 7270
End If
562 If Right(s4948, 1) <> "\" Then
s4948 = s4948 + "\"
End If
End If
599 If s4936 = "" Then
i4463 = 3
GoTo 7270
Else
635 s4936 = UCase(s4936)
End If
646 If s4960 = "" Then
s4960 = "NO SEC1"
Else
678 s4960 = Trim(UCase(s4960))
End If
692 If s4964 = "" Then
s4964 = "NO SEC2"
Else
724 s4964 = Trim(UCase(s4964))
End If
738 If s4940 = "" Then
i4463 = 15
GoTo 7270
Else
774 s4940 = Trim(UCase(s4940))
If Mid(s4940, 2, 2) <> ":\" Then
i4463 = 15
GoTo 7270
End If
825 If Right(s4940, 1) <> "\" Then
s4940 = s4940 + "\"
End If
End If
862 If i4574 <= 0 Then
i4574 = 1
End If
883 If i4574 >= 26 Then
i4574 = 26
End If
905 If i4572 <= 0 Then
i4572 = 0
End If
925 If i4572 >= 365 Then
i4572 = 365
End If
949 If l4576 <= 0 Then
l4576 = 2147483647
End If
973 If l4576 >= 2147483647 Then
l4576 = 2147483647
End If
1001 If s4918 = "" Or Len(s4918) <> 2 Then
s4918 = "@0E@"
Else
1046 s4918 = "@" + UCase(s4918) + "@"
End If
1071 If s4922 = "" Or Len(s4922) <> 2 Then
s4922 = "@0F@"
Else
1116 s4922 = "@" + UCase(s4922) + "@"
End If
1141 If s4926 = "" Or Len(s4926) <> 2 Then
s4926 = "@0B@"
Else
1186 s4926 = "@" + UCase(s4926) + "@"
End If
1211 If s4930 = "" Or Len(s4930) <> 2 Then
s4930 = "@0C@"
Else
1256 s4930 = "@" + UCase(s4930) + "@"
End If
1281 CurrentDate d4473
s4465 = FormatDate(d4473, "ddmmyyyy")
s4477 = Left(s4465, 2)
s4481 = Mid(s4465, 3, 2)
s4485 = Mid(s4465, 5, 4)
i4475 = (Val(s4485) - 1980) * 512 + Val(s4481) * 32 + Val(s4477)
If s4976 = s4948 Then
s4469 = "QWK2: Line #1 and Line #3 of QWK2HOLD.CFG MUST NOT be the same."
ActivityLog s4469
Else
1427 i4952 = 0
GoSub 4382
Do
Do
Do
Do
Do
1439 Cls
If User.SecLevel = s4960 Or User.SecLevel = s4964 Then
Print s4930; "Unfortunately your present Security Level does not allow you"
Print s4930; "the ability to use the QWK program at this time. Please"
Print s4930; "return after your security Level has been changed."
WaitEnter
Print
End
End If
1533 Print s4918; "The operator of this BBS allows callers to temporarily store QWK mail"
Print s4918; "packets on the system for up to "; s4922; i4572;
If i4572 > 1 Then
Print s4918; " days."
Else
1612 Print s4918; " day."
End If
1627 Print
Print s4926; "You should only turn this option on if you are using what is known as"
Print s4926; "an Offline Mail Reader "; s4922; "and"; s4926; " you have "; s4922; "successfully"; s4926; " downloaded a QWK mail"
Print s4926; "packet from this BBS."
Print
Print s4918; "You currently have the Automatic QWK mail option turned "; s4922;
i4910 = Val(Mid(s4936, 9, 1))
If Trim(Left(User.Comment(i4910), 8)) = "QWK2 ON" Then
Print "ON"; s4918; "."
Else
1857 Print "OFF"; s4918; "."
End If
1879 i4908 = 0
If Exists(s4940 + "QWK2MA1.FLG") Then
i4908 = 1
If s4552 <> "" Then
Print s4930; s4552
Else
1949 Print s4930; "Mail Flag #1 is flying high at this time."
End If
End If
1964 If Exists(s4940 + "QWK2MA2.FLG") Then
i4908 = 1
If s4556 <> "" Then
Print s4930; s4556
Else
2028 Print s4930; "Mail Flag #2 is flying high at this time."
End If
End If
2043 If Exists(s4940 + "QWK2MA3.FLG") Then
i4908 = 1
If s4560 <> "" Then
Print s4930; s4560
Else
2107 Print s4930; "Mail Flag #3 is flying high at this time."
End If
End If
2122 If Exists(s4940 + "QWK2MA4.FLG") Then
i4908 = 1
If s4564 <> "" Then
Print s4930; s4564
Else
2186 Print s4930; "Mail Flag #4 is flying high at this time."
End If
End If
2201 If Exists(s4940 + "QWK2MA5.FLG") Then
i4908 = 1
If s4568 <> "" Then
Print s4930; s4568
Else
2265 Print s4930; "Mail Flag #5 is flying high at this time."
End If
End If
2280 Print
If Trim(Left(User.Comment(Val(Mid(s4936, 9, 1))), 8)) = "QWK2 ON" Then
If i4908 = 1 Then
Print s4918; "If you are still ""Online"" when your QWK Packet(s) are due to be made"
Print s4918; "then yours will be skipped till the next time mail is processed."
Print
Delay 3
End If
2407 Else
2413 If i4908 = 1 Then
Delay 3
End If
End If
2436 If i4952 > 0 Then
Print s4918; "You have "; s4922; i4952; s4918; " mail packet";
If i4952 > 1 Then
Print "s";
End If
2515 Print " for a total of "; s4926; Int(l4968 / 100); s4918; " Kbytes."
Else
2567 Print s4930; "There are no QWK mail packets on hold for you at this time."
End If
2582 Print
Print s4926; "You have the following options available at this time."
Print
If User.Xpert = 0 Then
Print s4918; "["; s4922; "C"; s4918; "]heck on existing mail packets being held for you."
Print s4918; "["; s4922; "T"; s4918; "]urn On\Off the automatic creation of mail packets."
Print s4918; "["; s4922; "I"; s4918; "]nformation about automatic creation of mail packets."
Print s4918; "["; s4922; "U"; s4918; "]pload replies from your QWK mail reader."
Print s4918; "["; s4922; "Q"; s4918; "]uit back to the previous menu."
End If
2825 If User.Xpert = 1 Then
Print s4918; "["; s4922; "C"; s4918; "]heck, ["; s4922; "T"; s4918; "]urn On/Off, ["; s4922; "I"; s4918; "]nformation, ["; s4922; "U"; s4918; "]pload, ["; s4922; "Q"; s4918; "]uit"
End If
2990 Print
s4469 = InputMask(s4918 + "QWK2: [ C T I U Q ] --> ", "X", "", 1213417543)
s4469 = UCase(s4469)
If (s4469 = "C") = 0 Then GoTo 3065
GoSub 4382
Loop
3065 If (s4469 = "T") = 0 Then GoTo 3094
GoSub 3177
Loop
3094 If (s4469 = "I") = 0 Then GoTo 3123
GoSub 3577
Loop
3123 If (s4469 = "U") = 0 Then GoTo 3152
GoSub 4248
Loop
3152 If s4469 = "Q" Then
End
End If
3170 Loop
End
3177 Print
i4910 = Val(Mid(s4936, 9, 1))
If Trim(Left(User.Comment(i4910), 8)) = "QWK2 ON" Then
Print s4918; "You account has the automatic creation of mail packets turned "; s4922; "On."
Else
3293 Print s4918; "Your account has the automatic creation of mail packets turned "; s4922; "Off."
End If
3321 Print
s4465 = InputMask(s4918 + "Do you want mail packets premade for you?", "Y", "", 1213417543)
i4910 = Val(Mid(s4936, 9, 1))
If UCase(s4465) = "Y" Then
User.Comment(i4910) = "QWK2 ON "
Print s4918; "Automatic QWK making has been turned "; s4922; "on"; s4918; "."
Else
3487 User.Comment(i4910) = "QWK2 OFF "
Print s4918; "Automatic QWK making has been turned "; s4922; "off"; s4918; "."
End If
3573 WaitEnter
Return
3577 s4469 = ProgPath + "QWK2HOLD.TXT"
If Exists(s4469) Then
Print s4918
DisplayTextFile(s4469)
Else
3626 Print s4922; "QWK2HOLD"; s4918; ", created by James Mardis (Fidonet 1:322/746)"
Print
Print
Print s4918; "Your Sysop has activated the option that will allow callers who are"
Print s4918; "using what is known as a ""Offline Mail Reader"" to automatically"
Print s4918; "have QWK mail packets made for them after inbound mail is processed."
Print
Print s4918; "Programs of this type allow a caller to download any mail they have"
Print s4918; "in one short call to the BBS. They then can take all the time they"
Print s4918; "want to read and reply to the mail with out having to use up thier"
Print s4918; "alloted time on the BBS. When they have finished with any replies"
Print s4918; "they call the BBS back and upload all of them in one quick upload."
WaitEnter
Print
Print s4918; "Your Sysop has granted you the ability to have QWK mail packets"
Print s4918; "made automatically for you. These QWK mail packets can only be"
Print s4918; "left on the system for "; s4922; i4572; s4918;
If i4572 > 1 Then
Print s4918; " days."
Else
3885 Print s4918; "day."
End If
3900 Print
Print s4918; "If you leave QWK mail on the system longer than this limit the"
Print s4918; "system will turn off this option for your account. You will be"
Print s4918; "sent an automatic notice advising you that you have over age mail"
Print s4918; "packets. 15 days after the warning "; s4922; "all"; s4918; " of your remaining QWK"
Print s4918; "mail packets will be deleted."
Print
Print s4918; "You can later turn this option back on if you so desire."
WaitEnter
Print
Print s4918; "Your system administrator has set the following values for this program:"
Print
Print s4918; "Warning message will be sent if packets are older then ["; s4922; i4572; s4918; "] ";
If i4572 > 1 Then
Print s4918; "days."
Else
4119 Print s4918; "day."
End If
4134 Print s4918; "Maximum number of QWK Packets in storage, ["; s4922; i4574; s4918; "] at one time."
Print s4918; "If the total size of existing packets exceed ["; s4922; Int(l4576 / 100); s4918; "] Kbytes"
Print s4918; "then no new packets will be made."
Print
End If
4244 WaitEnter
Return
4248 If Trim(Left(User.Comment(i4910), 8)) = "QWK2 ON" Then
PushCommand "U"
s4469 = "WCMAIL.EXE "
Shell s4469, ""
Else
4344 Print
Print s4918; "This menu option is only active if you have the Automatic"
Print s4918; "creation of QWK packets turned on."
Print
WaitEnter
End If
4381 Return
4382 i4908 = 0
i4548 = 0
4394 Do While i4548 < i4574
s4904 = s4948 + Str(User.UserId) + ".QW" + Chr(i4908 + 65)
s4914 = s4948 + Str(User.UserId) + ".QW" + Chr(i4548 + 65)
If Exists(s4914) Then
i4548 = i4548 + 1
i4908 = i4908 + 1
If s4914 <> s4904 Then
Name s4914 As s4904
End If
4566 Else
4572 i4548 = i4548 + 1
End If
4586 Loop
4592 l4968 = 0
s4904 = s4948 + Str(User.UserId) + ".QWA"
s4914 = s4976 + Str(User.UserId) + ".QWK"
If Exists(s4904) Or Exists(s4914) Then
i4548 = 0
Print
Print s4918; "At least one mail packet is on hold, looking for others."
Print
Print s4918; " FileName Size Age"; s4922
4724 Do While i4548 < i4574 + 1
s4904 = s4948 + Str(User.UserId) + ".QW" + Chr(i4548 + 65)
If Exists(s4904) Then
FindFirst(s4904, 0, sr4495)
l4544 = sr4495.Size
w4489 = sr4495.DOSDate
l4968 = l4968 + sr4495.Size
Print s4922; LeftPad(UCase(Trim(MakeWild.PacketId)) + ".QW" + Chr(i4548 + 65), 8);
Print s4926; LeftPad(Str(Int(sr4495.Size / 100)), 8); "K";
Print s4922; LeftPad(Str(i4475 - w4489), 5);
If i4475 - w4489 = 1 Then
Print s4918; " Day"
Else
5033 If i4475 - w4489 = 0 Then
Print s4918; " Today"
Else
5075 Print s4918; " Days"
End If
End If
5090 Else
5096 GoTo 5154
End If
5102 i4548 = i4548 + 1
If i4548 > i4952 Then
i4952 = i4952 + 1
End If
5148 Loop
5154 s4465 = s4948 + Str(User.UserId)
If i4952 >= 26 Then
i4908 = 48
Else
5204 i4908 = i4952 + 1
End If
5218 s4904 = s4465 + ".QW" + Chr(i4908)
s4914 = s4976 + Str(User.UserId) + ".QWK"
If Exists(s4914) Then
CopyFile(s4914, s4904)
s4465 = Str(User.UserId) + ".QWK"
DeleteFile(s4465, i4980, 1)
i4952 = i4952 + 1
FindFirst(s4904, 0, sr4495)
l4544 = sr4495.Size
l4968 = l4968 + sr4495.Size
Print LeftPad(sr4495.Name, 12) + LeftPad(Str(Int(sr4495.Size / 100)), 14)
End If
5445 Else
5451 Return
End If
5452 Print s4918; "You have "; s4922; i4952; s4918; " mail packet";
If i4952 > 1 Then
Print "s";
End If
5517 Print " for a total of "; s4926; Int(l4968 / 100); s4918; " Kbytes."
If i4952 > 0 Then
Print s4918; "The following choices are available for your use:"
Print s4918; "["; s4922; "A"; s4918; "]ll packets downloaded now and continue."
Print s4918; "["; s4922; "D"; s4918; "]ownload all packets now and log off of the BBS."
Print s4918; "["; s4922; "F"; s4918; "]irst, download only first packet and continue."
Print s4918; "["; s4922; "N"; s4918; "]o packets downloaded at this time, continue with BBS."
Print
s4469 = InputMask(s4918 + "Choose Download [" + s4922 + "A" + s4918 + "]ll, [" + s4922 + "D" + s4918 + "]ownload & Goodbye, [" + s4922 + "F" + s4918 + "]irst, or [" + s4922 + "N" + s4918 + "]one ", "X", "A", 1213417543)
s4469 = UCase(s4469)
s4972 = s4469
If s4469 = "N" Then
Print
Return
End If
5934 If s4469 = "A" Then
If i4952 > 1 Then
Print s4918; "The mail packets will be sent in sequence, one right after the other."
Print s4926; "There will be a short pause between packets, please be patient."
End If
End If
End If
5996 If Local Then
Print
Print s4918; "Enter the path where you want your mail packets to wind up."
Print s4918; "Please use the following format shown in example: "; s4922; "C:\READER"; s4918; "."
s4956 = InputMask("-->", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
If s4956 = "" Then
Return
End If
6108 s4956 = Trim(UCase(s4956))
If Mid(s4956, 2, 2) <> ":\" Then
i4463 = 21
GoSub 7270
End If
6159 If Right(s4956, 1) = "\" Then
i4908 = Len(s4956) - 1
s4956 = Left(s4956, i4908)
End If
End If
6213 Print
If s4972 <> "A" Then
s4469 = InputMask(s4918 + "Hit the Enter key to begin the file transfer or [" + s4922 + "A" + s4918 + "] to abort.", "X", "", 1213417543)
If UCase(Left(s4469, 1)) = "A" Then
s4972 = ""
Return
End If
End If
6326 i4954 = i4952
6363 For i4548 = 0 To i4952 - 1 Step 1
s4914 = s4948 + Str(User.UserId) + ".QW" + Chr(i4548 + 65)
s4469 = TempPath
s4904 = s4469 + UCase(Trim(MakeWild.PacketId)) + ".QW" + Chr(i4548 + 65)
If Local Then
If Len(s4956) <= 20 Then
PushCommand s4956
End If
End If
6543 CopyFile(s4914, s4904)
Del s4914
If SendFile(s4904, 1213417543) Then
Del s4904
ActivityLog "QWK2: File " + s4904 + " was downloaded successfully."
i4954 = i4954 - 1
Else
6628 Print s4930; " Mail transfer failed."; s4918
CopyFile(s4904, s4914)
Del s4904
ActivityLog "QWK2: " + s4904 + " was not downloaded successfully."
GoTo 6853
End If
6695 If s4972 = "F" Then
Print
s4469 = InputMask(s4918 + "[" + s4922 + "N" + s4918 + "]ext File, [" + s4922 + "S" + s4918 + "]top Downloading ", "X", "N", 1213417543)
If UCase(Left(s4469, 1)) = "S" Then
GoTo 6853
End If
End If
6830 Next
6853 If Not (i4954 = i4952) Then
i4908 = i4952 - i4954
i4952 = i4954
6927 For i4548 = 0 To i4954 - 1 Step 1
s4904 = Trim(s4948) + Str(User.UserId) + ".QW" + Chr(i4548 + 65)
s4914 = Trim(s4948) + Str(User.UserId) + ".QW" + Chr(i4908 + 65)
Name s4914 As s4904
i4908 = i4908 + 1
Next
End If
7117 i4910 = Val(Mid(s4936, 9, 1))
s4465 = Pad(UCase(Left(User.Comment(i4910), 9)), 9)
User.Comment(Val(Mid(s4936, 9, 1))) = s4465
If s4972 = "D" Then
Goodbye -1
End If
7269 Return
7270 If i4463 >= 0 And i4463 <= 19 Then
Cls
Print
If i4463 = 0 Then
Print s4930; "The QWK2HOLD.CFG file was not located."
Else
7335 Print s4918; "Line ["; s4922; i4463; s4918; "] of the "; s4922; "QWK2HOLD.CFG"; s4918; " has a problem."
End If
7402 Print
Print s4918; "The current values of your "; s4922; "QWK2HOLD.CFG"; s4918; " file are"; s4922; ":"
Print s4918; "Line #1 = ["; s4922; s4976; s4918; "]"
Print s4918; "Line #2 = ["; s4922; i4980; s4918; "]"
Print s4918; "Line #3 = ["; s4922; s4948; s4918; "]"
Print s4918; "Line #4 = ["; s4922; s4936; s4918; "]"
Print s4918; "Line #5 = ["; s4922; s4960; s4918; "]"
Print s4918; "Line #6 = ["; s4922; s4964; s4918; "]"
Print s4918; "Line #7 = ["; s4922; i4574; s4918; "]"
Print s4918; "Line #8 = ["; s4922; i4572; s4918; "]"
Print s4918; "Line #9 = ["; s4922; l4576; s4918; "]"
Print s4918; "Line #10 = ["; s4922; i4902; s4918; "]"
Print s4918; "Line #11 = ["; s4922; Mid(s4918, 2, 2); s4918; "]"
Print s4918; "Line #12 = ["; s4922; Mid(s4922, 2, 2); s4918; "]"
Print s4918; "Line #13 = ["; s4922; Mid(s4926, 2, 2); s4918; "]"
Print s4918; "Line #14 = ["; s4922; Mid(s4930, 2, 2); s4918; "]"
Print s4918; "Line #15 = ["; s4922; s4940; s4918; "]"
Print
Print s4918; "This program will terminate after a 60 seconds pause."
Delay 60
End If
8116 If i4463 = 20 Then
Print
Print s4918; "Your input did not make sense, you may not download your QWK"
Print s4918; "packet at this time."
Print
WaitEnter
Return
End If
8169 If i4463 = 21 Then
Print
Print s4918; "The path you supplied could not be located. Mail packet"
Print s4918; "transfer can not take place at this time."
Print
WaitEnter
Return
End If
8222 If i4463 = 22 Then
s4469 = "QWK2: User does not have QWK checking turned on."
ActivityLog s4469
End If
8253 If i4463 = 23 Then
s4469 = "QWK2: User did not meet security requirements for QWK2."
ActivityLog s4469
End If
8284 GoTo 8290
End If
8290 s4469 = "QWK2: Program has ended at this time."
ActivityLog s4469
End